home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / boot / selector90.lha / Selector / bro / vols < prev    next >
Text File  |  1998-10-14  |  325b  |  17 lines
  1. echo >t:vols.sel ""
  2.  
  3. assign >env:vols vols
  4. chopline vols line
  5. change >nil: file env:vols from " [Mounted]" to ""
  6.  
  7. lab elon
  8.     chopline vols line
  9.     if "$line" eq "EOF"
  10.         unsetenv line
  11.         unsetenv vols
  12.         quit
  13.     endif
  14.     echo >>t:vols.sel "button @$line:@ exec @execute sel:bro/makebrowser *"$line:*"@ load t:file.sel"
  15. skip back elon
  16.  
  17.